home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Games World / Hot Demos! / DroidWorks demo / dwCD.gob / mission_cog_00_cheat.cog < prev    next >
Encoding:
Text File  |  1998-09-17  |  1.9 KB  |  60 lines
  1. symbols
  2.  
  3. message         startup
  4. message         pulse
  5. message        user0          #the explosion cheat
  6.     
  7. float        expChance=0.0
  8. float        pulseRate=4.0
  9.  
  10. template         explosion_tpl=+grenade_exp    local 
  11. int             curSector                        local
  12. sound          expwav=EXP00texp01.wav
  13.  
  14. thing    player local
  15. int        active=0 local
  16.  
  17. end
  18.  
  19. code
  20.  
  21. user0:
  22.     player=getlocalplayerthing();
  23.     if (active)
  24.     {
  25.         SetPulse(0);
  26.         active = 0;
  27.     }
  28.     else
  29.     {
  30.         SetPulse(pulseRate);
  31.         active = 1;
  32.     }
  33.     return;
  34.  
  35. pulse:
  36.     curSector = GetThingSector(GetLocalPlayerthing());
  37.     CreateThingAtPos(explosion_tpl, curSector, GetSectorVertexPos(curSector, (Rand()*GetNumSectorVertices(curSector))), '0.0 0.0 0.0');
  38.     playsoundthing(expwav, player, 1, -1, -1, 0);
  39.     sleep(0.3);
  40.     CreateThingAtPos(explosion_tpl, curSector, GetSectorVertexPos(curSector, (Rand()*GetNumSectorVertices(curSector))), '0.0 0.0 0.0');
  41.     playsoundthing(expwav, player, 1, -1, -1, 0);
  42.     sleep(0.3);
  43.     CreateThingAtPos(explosion_tpl, curSector, GetSectorVertexPos(curSector, (Rand()*GetNumSectorVertices(curSector))), '0.0 0.0 0.0');
  44.     playsoundthing(expwav, player, 1,-1, -1, 0);
  45.     sleep(0.3);
  46.     CreateThingAtPos(explosion_tpl, curSector, GetSectorVertexPos(curSector, (Rand()*GetNumSectorVertices(curSector))), '0.0 0.0 0.0');
  47.     playsoundthing(expwav, player, 1, -1, -1, 0);
  48.     sleep(0.3);
  49.     CreateThingAtPos(explosion_tpl, curSector, GetSectorVertexPos(curSector, (Rand()*GetNumSectorVertices(curSector))), '0.0 0.0 0.0');
  50.     playsoundthing(expwav, player, 1, -1, -1, 0);
  51.     sleep(0.3);
  52.     CreateThingAtPos(explosion_tpl, curSector, GetSectorVertexPos(curSector, (Rand()*GetNumSectorVertices(curSector))), '0.0 0.0 0.0');
  53.     playsoundthing(expwav, player, 1, -1, -1, 0);
  54.     sleep(0.3);
  55.     CreateThingAtPos(explosion_tpl, curSector, GetSectorVertexPos(curSector, (Rand()*GetNumSectorVertices(curSector))), '0.0 0.0 0.0');
  56.     playsoundthing(expwav, player, 1, -1, -1, 0);
  57.     return;
  58.  
  59. end
  60.